home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / MRAC / Lengths / Generate / g-length2 < prev    next >
Lisp/Scheme  |  1998-08-11  |  1KB  |  19 lines
  1. g-length2 seed position type length-value denominator numerator
  2.  
  3. position: f = first, l = last, r = random
  4. type: rest, note
  5.  
  6. (setq pattern (distributive-square '(1 2 2 3)))
  7. => ((9 3 6 6) (3 1 2 2) (6 2 4 4) (6 2 4 4))
  8.  
  9. (g-length2 .4785 'r :note '(1 2 3) 20 pattern)
  10. => ((-3/10 3/20 1/20 -1/10 -1/4 1/20 1/10 -1/5) (3/20 1/20 1/10 1/10) (-1/5 1/10 -1/20 1/20 -1/20 3/20 1/20 -3/20) (-3/20 3/20 1/10 3/20 -1/20 1/20 -3/20))
  11.  
  12. (g-length2 .4785 'r :rest '(1 2 3) 20 pattern)
  13. => ((3/10 -3/20 -1/20 1/10 1/4 -1/20 -1/10 1/5) (3/20 1/20 1/10 1/10) (1/5 -1/10 1/20 -1/20 1/20 -3/20 -1/20 3/20) (3/20 -3/20 1/10 -3/20 1/20 -1/20 3/20))
  14.  
  15. (g-length2 .4785 'f :note '(1 2 3) '(20 12) pattern)
  16. => ((3/20 -3/10 1/20 -1/10 1/20 -1/4 1/10 -1/5) (1/4 1/12 1/6 1/6) (1/10 -1/5 1/20 -1/20 3/20 -1/20 1/20 -3/20) (1/4 -1/4 1/6 1/4 -1/12 1/12 -1/4))
  17.  
  18. (g-length2 .4785 'f :rest '(1 2 3) '(20 12) pattern)
  19. => ((-3/20 3/10 -1/20 1/10 -1/20 1/4 -1/10 1/5) (1/4 1/12 1/6 1/6) (-1/10 1/5 -1/20 1/20 -3/20 1/20 -1/20 3/20) (-1/4 1/4 1/6 -1/4 1/12 -1/12 1/4))